Public Class PlanesDeProduccion
    Dim ADPP As New ADCono.PlanesDeProduccion
    Dim ADP As New ADCono.Productos

    Public Function GenerarPP(ByVal Fec, ByVal Can, ByVal PEE, ByVal PEF, ByVal Obs)
        Dim DS As String
        DS = ADPP.GenerarPP(Fec, Can, PEE, PEF, Obs)
        Return DS
    End Function

    Public Function ObtenerPP(ByVal Estado As String)
        Dim DS As DataSet
        DS = ADPP.ObtenerPP(Estado)
        Return DS
    End Function

    Public Function ObtenerIPP(ByVal Estado As String, Optional ByVal CodPP As Integer = -1)
        Dim DS As DataSet
        DS = ADPP.ObtenerIPP(Estado, CodPP)
        Return DS
    End Function

    Public Function ModificarPP(ByVal CodPP, ByVal Fec, ByVal Can, ByVal PEE, ByVal PEF, ByVal Obs)
        Dim DS As DataSet
        DS = ADPP.ModificarPP(CodPP, Fec, Can, PEE, PEF, Obs)
        Return DS
    End Function

    Public Function GenerarIPP(ByVal CodPP, ByVal Fec, ByVal PEEIPP, ByVal Obs)
        Dim DS As DataSet
        DS = ADPP.GenerarIPP(CodPP, Fec, PEEIPP, Obs)
        Return DS
    End Function

    Public Function ModificarIPP(ByVal CodIPP, ByVal Est)
        Dim DS As DataSet
        DS = ADPP.ModificarIPP(CodIPP, Est)
        Return DS
    End Function

    Public Function EliminarIPP(ByVal CodIPP)
        Dim DS As New DataSet
        DS = ADPP.EliminarIPP(CodIPP)
        Return DS
    End Function

    Public Function ObtenerClasificaciones() As DataSet
        Dim DS As New DataSet
        DS = ADP.ObtenerClasificaciones()
        Return DS
    End Function

End Class
